home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ainet / exclude.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-08-06  |  4.9 KB  |  175 lines
  1. VERSION 4.00
  2. Begin VB.Form ExcludeMV 
  3.    Caption         =   "Exclude Model Vectors ..."
  4.    ClientHeight    =   3792
  5.    ClientLeft      =   2868
  6.    ClientTop       =   3120
  7.    ClientWidth     =   3732
  8.    Height          =   4176
  9.    Left            =   2820
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3792
  12.    ScaleWidth      =   3732
  13.    Top             =   2784
  14.    Width           =   3828
  15.    Begin VB.CommandButton Delete 
  16.       Caption         =   "Delete"
  17.       Height          =   372
  18.       Left            =   2520
  19.       TabIndex        =   13
  20.       Top             =   2760
  21.       Width           =   852
  22.    End
  23.    Begin VB.CommandButton Include 
  24.       Caption         =   "&Include"
  25.       Height          =   372
  26.       Left            =   1440
  27.       TabIndex        =   10
  28.       Top             =   2760
  29.       Width           =   852
  30.    End
  31.    Begin VB.CommandButton Exclude 
  32.       Caption         =   "&Exclude"
  33.       Height          =   372
  34.       Left            =   360
  35.       TabIndex        =   9
  36.       Top             =   2760
  37.       Width           =   852
  38.    End
  39.    Begin VB.CommandButton Cancel 
  40.       Cancel          =   -1  'True
  41.       Caption         =   "Cancel"
  42.       Height          =   372
  43.       Left            =   1440
  44.       TabIndex        =   11
  45.       Top             =   3240
  46.       Width           =   852
  47.    End
  48.    Begin VB.OptionButton Single 
  49.       Caption         =   "&Single Model Vector"
  50.       Height          =   252
  51.       Left            =   480
  52.       TabIndex        =   1
  53.       Top             =   1560
  54.       Width           =   1692
  55.    End
  56.    Begin VB.TextBox Index 
  57.       Height          =   288
  58.       Left            =   2520
  59.       TabIndex        =   8
  60.       Top             =   1920
  61.       Width           =   492
  62.    End
  63.    Begin VB.Frame Frame2 
  64.       Height          =   732
  65.       Left            =   360
  66.       TabIndex        =   12
  67.       Top             =   1680
  68.       Width           =   3012
  69.       Begin VB.Label IndexText 
  70.          Alignment       =   1  'Right Justify
  71.          Caption         =   "Inde&x of model vector:"
  72.          Height          =   252
  73.          Left            =   120
  74.          TabIndex        =   7
  75.          Top             =   240
  76.          Width           =   1932
  77.       End
  78.    End
  79.    Begin VB.TextBox Last 
  80.       Height          =   288
  81.       Left            =   2520
  82.       TabIndex        =   6
  83.       Top             =   960
  84.       Width           =   492
  85.    End
  86.    Begin VB.TextBox First 
  87.       Height          =   288
  88.       Left            =   2520
  89.       TabIndex        =   4
  90.       Top             =   600
  91.       Width           =   492
  92.    End
  93.    Begin VB.OptionButton Range 
  94.       Caption         =   "Model Vector &Range"
  95.       Height          =   252
  96.       Left            =   480
  97.       TabIndex        =   0
  98.       Top             =   240
  99.       Width           =   1812
  100.    End
  101.    Begin VB.Frame Frame1 
  102.       Height          =   1092
  103.       Left            =   360
  104.       TabIndex        =   2
  105.       Top             =   360
  106.       Width           =   3012
  107.       Begin VB.Label LastText 
  108.          Alignment       =   1  'Right Justify
  109.          Caption         =   "The &last MV in the range:"
  110.          Height          =   252
  111.          Left            =   120
  112.          TabIndex        =   5
  113.          Top             =   600
  114.          Width           =   1932
  115.       End
  116.       Begin VB.Label FirstText 
  117.          Alignment       =   1  'Right Justify
  118.          Caption         =   "The &first MV in the range:"
  119.          Height          =   252
  120.          Left            =   120
  121.          TabIndex        =   3
  122.          Top             =   240
  123.          Width           =   1932
  124.       End
  125.    End
  126. Attribute VB_Name = "ExcludeMV"
  127. Attribute VB_Creatable = False
  128. Attribute VB_Exposed = False
  129. Private Sub Cancel_Click()
  130.     MainForm.Ret = 0
  131.     Hide
  132. End Sub
  133. Private Sub SetupControls()
  134.     If Range = True Then
  135.         first.Enabled = True
  136.         last.Enabled = True
  137.         index.Enabled = False
  138.         first.SetFocus
  139.         FirstText.Enabled = True
  140.         LastText.Enabled = True
  141.         IndexText.Enabled = False
  142.         Delete.Enabled = False
  143.     Else
  144.         first.Enabled = False
  145.         last.Enabled = False
  146.         index.Enabled = True
  147.         index.SetFocus
  148.         FirstText.Enabled = False
  149.         LastText.Enabled = False
  150.         IndexText.Enabled = True
  151.         Delete.Enabled = True
  152.     End If
  153. End Sub
  154. Private Sub Delete_Click()
  155.     MainForm.Ret = 3
  156.     Hide
  157. End Sub
  158. Private Sub exclude_Click()
  159.     MainForm.Ret = 1
  160.     Hide
  161. End Sub
  162. Private Sub Form_Activate()
  163.     If Range = True Then Delete.Enabled = False
  164. End Sub
  165. Private Sub Include_Click()
  166.     MainForm.Ret = 2
  167.     Hide
  168. End Sub
  169. Private Sub Range_Click()
  170.     SetupControls
  171. End Sub
  172. Private Sub Single_Click()
  173.     SetupControls
  174. End Sub
  175.